﻿Imports System.Data.SqlClient
Imports System.IO
Imports System.Windows
Imports System.Data

Public Class frmEscritorioAprobaciones

    Public CnnStr As String = System.Configuration.ConfigurationSettings.AppSettings("ConnStr")

    Public Sub New()
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
    End Sub

    Private Sub frmEscritorioAprobaciones_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sqlCnn As New SqlClient.SqlConnection(CnnStr)

        Dim DataSetEstadosOC As New DataSet
        Dim TablaEstadosOC As DataTable
        Dim DAEstadosOC As New SqlClient.SqlDataAdapter("SP_C_ESTADOS", sqlCnn)
        DAEstadosOC.Fill(DataSetEstadosOC, "TB_ESTADOS_OC")
        TablaEstadosOC = DataSetEstadosOC.Tables("TB_ESTADOS_OC")
        Me.cmbEstado.DataSource = TablaEstadosOC
        Me.cmbEstado.ValueMember = TablaEstadosOC.Columns(0).ColumnName()
        Me.cmbEstado.DisplayMember = TablaEstadosOC.Columns(1).ColumnName()

        Dim dateFechaHoy As Date = Date.Now()
        Dim strFechaDeHoy As String
        strFechaDeHoy = dateFechaHoy.Day.ToString.PadLeft(2, "0") & "/" & dateFechaHoy.Month.ToString.PadLeft(2, "0") & "/" & dateFechaHoy.Year.ToString.PadLeft(4, "0")
        Me.lblFechaActual.Text() = strFechaDeHoy

        Me.btnConsultar.Cursor() = System.Windows.Forms.Cursors.Hand()

    End Sub


    Private Sub btnConsultar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsultar.Click

    End Sub
   

    Private Sub txtProveedor_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtProveedor.KeyPress
        If Asc(e.KeyChar) = 65 Then
            AyudaPersonas.Show()

        End If
    End Sub


End Class